1 REM PLANET OF DEATH 9 GOTO1000 10 REM ** KOLLISION ** 11 : 15 FORT=0TO2 16 IFPEEK(53246)=1THEN25 17 IF(PEEK(V+30)AND1)=1THEN25 18 NEXT:RETURN 25 REM ** KOLLISION ** 26 : 27 POKEV+30,0:POKEV+31,0 29 L=L-1:POKE53246,1:POKEV,57:POKEV+1,199 30 IFL=-1THEN40 31 POKE214,22:POKE211,35:SYS58640 32 PRINT"[149]"STR$(L) 33 FORT=30TO1STEP-1:POKE53206,T:SYS53200:NEXT 34 POKE53246,0:RETURN 40 REM ** GAME OVER ** 41 : 42 POKEV+21,0:PRINT"[147]":PRINTTAB(15)"[155]GAME OVER" 44 PRINT" FEUERKNOPF DRUECKEN UM DAS SPIEL" 45 PRINTTAB(11)"ERNEUT ZU STARTEN":PRINTTAB(14)"SCORE ="SC 46 POKE53221,33:POKE53206,INT(RND(0)*255):SYS53200 48 IFPEEK(56320)<>111THEN46 49 POKE53221,129:POKE53206,130:GOTO15000 50 REM ** BILD 1 ** 51 : 52 GOTO30000 80 TI$="000000":HE=99:POKEV+21,15 81 GOSUB720:L=L+1:GOSUB25:GT=0 100 SYS49152 112 POKEV+30,0:POKEV+31,0 120 REM ** BILD 1 BEENDET ? ** 125 IFPEEK(V+1)<45THEN603 200 : 205 IFVAL(TI$)<(1+LE)THEN300 206 : 207 REM ** UHR ** 208 HE=HE-1:IFHE=-1THENHE=99:GOSUB25 209 POKE214,4:POKE211,24:SYS58640 210 POKE1209,160:POKE1210,160:PRINT"[149]"HE 220 POKE1648,101:POKE1688,84:POKE1728,71:POKE1768,66:POKE53206,120:SYS53200 240 FORT=1TO5:POKE56944,T:POKE56945,T:POKE56946,T:POKE56947,T:NEXT 250 POKE1648,32:POKE1688,32:POKE1728,32:POKE1768,32:TI$="000000" 300 : 400 REM ** KOLLISION ? ** 401 : 405 GOSUB10:GOTO100 603 REM ** BILD 2 ** 605 : 630 POKEV+21,0:GOTO32000 631 POKEV,56:POKEV+1,199:SC=SC+(HE*10)+100 632 POKEV+8,200:POKEV+9,173:POKE715,0 633 GOSUB720:POKEV+21,63:L=L+1:GOSUB25 640 REM ** BILD 2 BEENDET ? ** 641 : 642 IFPEEK(V+1)<45THEN800 643 : 645 REM ** SPERREN ? ** 646 IFVAL(TI$)<5THEN652 647 POKE1546,32:POKE1547,32:POKE1548,32:POKE1256,32:POKE1257,32:POKE1258,32 648 FORT=0TO(300+LE*70):NEXT 649 POKE1546,28:POKE1547,28:POKE1548,28:POKE1256,28:POKE1257,28:POKE1258,28 650 TI$="000000" 652 REM ** KOLLISION ? ** 653 : 654 GOSUB10 660 REM ** RAKETE DES GEGNERS ** 661 : 670 IFPEEK(715)<>0THEN680 675 POKEV+10,PEEK(V+8):POKEV+11,PEEK(V+9)-5 676 POKE715,255:POKE714,0 677 POKE53206,30:SYS53200 680 REM ** GEGNER VERNICHTET ? ** 681 : 683 FORT=0TO2:IF(PEEK(V+30)AND16)=16THEN686 684 NEXT:GOTO640 686 REM ** GEGNER VERNICHTET ** 687 : 688 SC=SC+100:GT=GT+1:GOSUB720 689 IFGT=4THENPOKE1136,32:POKE1137,32:POKE1138,32:POKEV+21,15:POKEV+10,0 703 GOTO640 720 REM ** SCORE ** 721 : 724 POKE214,22:POKE211,10:SYS58640:PRINT"[149]"SC:RETURN 764 : 800 REM ** BILD 3 ** 801 : 822 POKEV+21,0:GOTO33000 823 TI$="000000" 824 SC=SC+100:GOSUB720 826 POKEV+21,15:L=L+1:GOSUB25 850 REM ** SPERREN/RAKETEN ? ** 851 : 852 IFVAL(TI$)<5THEN900 860 POKE1267,32:POKE1268,32:POKE1269,32 862 POKE1427,32:POKE1428,32:POKE1429,32 863 POKE1642,32:POKE1682,32:POKE1722,32 864 POKE1647,32:POKE1687,32:POKE1727,32 865 POKE1651,32:POKE1691,32:POKE1731,32 870 FORT=0TO(400+L*70):NEXT 875 POKE1267,28:POKE1268,28:POKE1269,28 876 POKE1427,28:POKE1428,28:POKE1429,28 877 POKE1642,28:POKE1682,28:POKE1722,28 878 POKE1647,28:POKE1687,28:POKE1727,28 879 POKE1651,28:POKE1691,28:POKE1731,28 880 REM ** RAKETEN ** 882 FORT=1328TO1168STEP-40:POKE54272+T,1:POKET,37:SYS53200:QQ=SIN(T) 883 POKET,32:NEXT 884 FORT=1261TO1244STEP-1:POKE54272+T,1:POKET,38:SYS53200:QQ=SIN(T) 885 POKET,32:NEXT 890 TI$="000000" 900 REM ** BILD 3 BEENDET ? ** 901 : 902 IFPEEK(V+1)<45THEN950 910 REM ** KOLLISION ? ** 911 : 912 GOSUB10 913 GOTO850 950 REM ** BILD 3 BEENDET ** 951 : 952 : 960 SC=SC+100:POKEV+21,0:IFLE<>0THENLE=LE-1 965 PRINT"[147][149]\\\\\\^":PRINT"\^" 967 PRINT"\ #[149]":PRINT"\ $[149] []" 969 PRINT"\][\\\\\]" 970 PRINT"[155]...ES FOLGT DER NAECHSTE DURCHGANG...":FORT=0TO300:NEXT 972 FORT=130TO1STEP-1:POKE53206,T:SYS53200:NEXT 973 FORT=1TO130:POKE53206,T:SYS53200:NEXT:FORT=0TO300:NEXT 976 GOTO50 1000 REM * BITTE WARTEN * 1010 : 1011 PRINT"[147]":POKE53280,0:POKE53281,0 1014 PRINT:PRINT"PLANET OF DEATH":PRINT 1024 PRINT"EIN ARCADE-SPIEL FUER DEN COMMODORE 64" 1025 PRINTTAB(8)"MIT JOYSTICK (PORT 2)" 1030 PRINTTAB(13)"BITTE WARTEN" 1040 PRINTTAB(7)"DATEN WERDEN EINGELESEN" 1050 : 2000 REM MASCHINENPROGRAMM 2002 : 2003 DATA120,169,192,141,21,3,169,13,141,20,3,88,96 2005 DATA174,0,220,224,112,176,73,174,195,2,224,0,208,66,173,16,208,41,253,141 2006 DATA16,208,173,16,208,41,1,170,224,1,208,6,238,16,208,238,16,208,174,0,208 2007 DATA142,2,208,174,1,208,142,3,208,162,1,142,195,2,162,0,142,4,212 2008 DATA162,4,142,1,212,162,10,142,5,212,162,15,142,24,212,162,129,142,4,212 2010 DATA174,31,208,142,255,207 2011 DATA173,255,207,41,2,170,224,2,208,8,162,0,142,195,2,142,3,208 2013 DATA173,255,207,41,32,170,224,32,208,8,162,0,142,203,2,142,11,208 2015 DATA173,255,207,41,1,170,224,1,208,23,162,57,142,0,208,162,199,142,1,208 2016 DATA173,16,208,41,254,141,16,208,162,1,142,254,207,169,0,141,192,2,141,193 2103 DATA2,173,0,220,41,239,141,253,207,174,254,207,224,1,240,112 2105 DATA174,253,207,224,107,208,5,169,255,141,192,2,174,253,207,224,103 2106 DATA208,5,169,1,141,192,2 2107 DATA174,253,207,224,110,208,5,169,255,141,193,2,174,253,207,224,109,208,5 2108 DATA169,1,141,193,2,174,253,207,224,106,208,8,169,255,141,193,2,141,192,2 2109 DATA174,253,207,224,102,208,10,169,255,141,193,2,169,1,141,192,2 2110 DATA174,253,207,224,105,208,10,169,1,141,193,2,169,255,141,192,2 2111 DATA174,253,207,224,101,208,8,169,1,141,193,2,141,192,2 2119 DATA173,16,208,41,1,170,224,1,240,12,174,0,208,224,30,176,17,169,1 2120 DATA141,192,2,174,0,208,224,60,144,5,169,255,141,192,2 2150 DATA174,1,208,224,40,176,5,169,1,141,193,2,174,1,208,224,200,144,5,169,255 2151 DATA141,193,2 2182 DATA174,5,208,224,90,176,5,162,1,142,197,2,174,5,208,224,175,144,5,162,255 2183 DATA142,197,2 2184 DATA174,7,208,224,90,176,5,162,1,142,199,2,174,7,208,224,175,144,5,162,255 2185 DATA142,199,2 2193 DATA174,8,208,224,100,176,5,162,1,142,200,2,174,8,208,224,240,144,5,162 2219 DATA255,142,200,2,162,15,169,128,141,61,3,141 2220 DATA60,3,222,208,2,208,44,189,176,2,157,208,2,189,192,2,240,33,16,12,189,0 2230 DATA208,8,222,0,208,40,240,7,208,19,254,0,208,208,14,173,60,3,208,9,173,61 2240 DATA3,77,16,208,141,16,208,173,60,3,208,3,78,61,3,73,128,141,60,3,202,16 2250 DATA191,76,49,234,-1 3010 DATA162,0,142,11,212 3020 DATA162,255,142,8,212,162,10,142,12,212,162,15,142,24,212,162,129,142,11 3025 DATA212,96,-1 4080 DATA120,169,49,133,1,169,0,133,98,133,100,169,208,133,99,169,56,133,101 4082 DATA162,16,160,0,177,98,145,100,200,208,249,230,99,230,101,202,208,242 4085 DATA169,55,133,1,88,96,-1 4095 DATA1,1,3,7,15,31,127,255,255,255,255,255,255,255,255,255 4096 DATA128,128,192,224,240,248,254,255,255,252,252,240,224,192,128,128 4097 DATA255,63,63,7,3,3,1,1,,,,,,,,,8,76,247,3,3,247,76,8,0,0,0,0,0,0,0,0 4098 DATA16,16,16,56,56,56,108,68,124,108,238,198,214,84,56,16 4099 DATA16,16,16,56,56,124,56,16,0,3,15,252,252,15,3,-1 5000 REM ** EINLESEN DER DATEN ** 5001 : 5010 FORT=0TO1999:READQ:IFQ=-1THEN5026 5012 POKE49152+T,Q:NEXT 5026 FORT=0TO999:READQ:IFQ=-1THEN5030 5027 POKE53200+T,Q:NEXT 5030 FORT=0TO999:READQ:IFQ=-1THEN5035 5032 POKE53000+T,Q:NEXT 5035 SYS53000:POKE53272,(PEEK(53272)AND240)OR14 5036 FORT=0TO999:READQ:IFQ=-1THEN5050 5037 POKE14336+27*8+T,Q:NEXT 5050 : 6000 REM ** SPRITES ** 6002 : 6006 REM ** EIGENER RAUMER ** 6010 DATA,,,,,,,,,,60,,,102,,,195,,15,255,240,31,255,248,48,60,12,48,24,12,24 6020 DATA,24,24,,24,8,,16,,,,,,,,,,,,,,,,,,,,,,,, 6030 : 6032 REM ** BOMBE ** 6035 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,24,,,24,,,24,,,,,,,,,,,,,,,,,,,,,,, 6040 REM ** GESCHUETZ (GEGNER) ** 6045 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,48,,,48,,8,48,64,8,48,64,56,120 6046 DATA112,127,255,248,63,255,240,31,255,224,15,3,192, 10000 REM ** EINLESEN DER SPRITES ** 10001 : 10010 FORT=0TO63:READQ:POKE832+T,Q:NEXT 10020 FORT=0TO63:READQ:POKE896+T,Q:NEXT 10030 FORT=0TO63:READQ:POKE960+T,Q:NEXT 15000 REM ** LEVEL ** 15001 : 15003 FORT=0TO100:POKE53206,T:SYS53200:NEXT 15010 PRINT"[145][145][145]SIND SIE 1 = ANFAENGER, " 15020 PRINTTAB(7)" 2 = FORTGESCHRITTENER ODER" 15025 PRINTTAB(7)" 3 = EXPERTE" 16000 GETA$ 16010 IFA$="1"THENLE=4:GOTO20000 16011 IFA$="2"THENLE=2:GOTO20000 16012 IFA$="3"THENLE=0:GOTO20000 16013 GOTO16000 20000 REM ** VARIABLEN, DATEN ** 20001 : 20002 V=53248:L=9:SC=0:POKE53247,0:POKE53246,0:POKE56325,20 20022 POKEV+27,44:POKE706,0:POKE707,0 20023 POKE708,0:POKE709,1 20024 POKE710,0:POKE711,255 20025 POKE712,1:POKE713,0 20042 POKE688,3:POKE689,3 20043 POKE690,3:POKE691,2 20044 POKE692,3+LE:POKE693,3+LE 20045 POKE694,3+LE:POKE695,3+LE 20046 POKE696,2+LE:POKE699,2+LE 20060 POKE2040,13:POKE2041,14:POKE2042,14:POKE2043,14:POKE2044,15:POKE2045,14 20142 POKEV+39,1:POKEV+40,1:POKEV+41,1 20143 POKEV+42,1:POKEV+43,1:POKEV+44,1 20170 POKEV+16,0:POKEV,56:POKEV+1,200 20172 POKEV+3,0:POKEV+4,95:POKEV+5,110 20173 POKEV+6,255:POKEV+7,110:GOTO50 30000 REM ** BILD 1 ** 30010 : 30090 PRINT"[147][145][149]\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\" 30100 PRINT"[145]\\\\\\\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\" 30105 PRINT"[145]\\\\\^ _\\\\ \\TIME[146]\\\\\\\\\\\\" 30110 PRINT"[145]\\\\^ _\\\ \\\\\\\\\\\^ _\\" 30115 PRINT"[145]\\\^ _\^ _\\\\\\\\^ _\" 30120 PRINT"[145]\\^ [\\] _] \\\\\\\^ \" 30125 PRINT"[145]\^ [\\^ _] _] _\\\\\^ \" 30130 PRINT"[145]\ [\\\ \] \ \\\\^ [] \" 30135 PRINT"[145]\ \^_ \^ [\ _\^ \^ \" 30140 PRINT"[145]\ \ [\\ [\ [\" 30150 PRINT"[145]\ \ _\^ [\\^ \\" 30155 PRINT"[145]\] \ _] [\\^ \\" 30160 PRINT"[145]\\\\\] [ \] _] [\\\\\^ [\\" 30165 PRINT"[145]\\^ _\\ \\] _\\\\\^ \\\" 30170 PRINT"[145]\^ _^_] _^_\^ [^ _\" 30175 PRINT"[145]\] \ [\ \" 30180 PRINT"[145]\\]  \] [\\] \" 30185 PRINT"[145]\\\] [\] [\\] [\\\\\] [\" 30186 PRINT"[145]\\\\ \\\\\\\\\\\] [\\\\\\\\\\\\" 30187 PRINT"[145]\\\\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" 30188 PRINT"[145]\\\\[162][162][162][149]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" 30189 PRINT"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" 30190 PRINT"[145] SCORE RAUMER " 30191 PRINT"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\":POKE1983,160:POKE56255,9 31000 GOTO80 32000 REM ** BILD 2 32001 : 32017 PRINT"[147][149][145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\" 32018 PRINT"[149][145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \\\\\" 32020 PRINT"[145]^ _^ _\\\^_^_^_^_^_^_\\^_\\\\[183][183][183][149]\\\\\" 32025 PRINT"[145] \\\ \\ \\ ^[\\\" 32030 PRINT"[145] \\\ _^ _\ [\\\\" 32032 PRINT"[145] _\\] _ \\\\\" 32033 PRINT"[145] _\] _\\\\" 32035 PRINT"[145] \^ \\\" 32036 PRINT"[145] \] [\\\" 32037 PRINT"[145] \\ _\\\" 32038 PRINT"[145] \^ \\\" 32039 PRINT"[145] \] [\\\" 32040 PRINT"[145]\] _^ _\\\" 32042 PRINT"[145]\\ \\] \\\" 32043 PRINT"[145]^ _\] [\\\" 32044 PRINT"[145]] [\\ \\\\" 32045 PRINT"[145]\\] \\\ ] [\\\\" 32046 PRINT"[145]\\\ \\\] [\] [] [\\\\\\" 32047 PRINT"[145]\\^ _\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" 32048 PRINT"[145]\\] \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" 32049 PRINT"[145]\\\[162][162][162][162][149]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" 32050 PRINT"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" 32051 PRINT"[145] SCORE RAUMER " 32052 PRINT"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\":POKE1983,160 32053 POKE56255,9:GOTO631 33000 REM ** BILD 3 ** 33009 : 33010 PRINT"[147][149][145]\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\" 33012 PRINT"[145]\\\\\\\\\\\\\ \\\\\\\\\\\\\\\\\\\\\\\" 33014 PRINT"[145]\\\^ _\\ _\\\^ _\\^ _\" 33016 PRINT"[145]\\^ _\ _\^ \" 33018 PRINT"[145]\\ _] \ \" 33019 PRINT"[145]\\] [] \ \ ![149]\" 33020 PRINT"[145]\\\ \\ [\ [^ \" 33022 PRINT"[145]\\\ \^ \^ \" 33023 PRINT"[145]\\^ \] [^ #[149] [\" 33024 PRINT"[145]\\] \^ _] [] $[149] [ ] [\\\" 33026 PRINT"[145]\\\ \] _\\\\\\] [\\\\\ \ _\\\" 33027 PRINT"[145]\\^ \\ _\\\\\\][\\\\\^ \] _\\" 33028 PRINT"[145]\\ _\] _\\\\\\\\\\\\] _^ _\" 33030 PRINT"[145]\\] \\] _\\\\\\\\\\\\ [] \" 33032 PRINT"[145]\\\] _\\ _\\\\\\\\\\^ _\] \" 33034 PRINT"[145]\\\\ \\ _ \" 33035 PRINT"[145]\\^ \\] [\" 33036 PRINT"[145]\\] [\\\] _\" 33037 PRINT"[145]\\\ \\\\\ [\\\\\\\\\\\] \" 33038 PRINT"[145]\\\ \\\\\] [\\\\\\\\\\\\\\] [\" 33039 PRINT"[145]\\\[162][162][162][162][149]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" 33040 PRINT"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\" 33100 PRINT"[145] SCORE RAUMER " 33101 PRINT"[145]\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\":POKE1983,28 33102 POKE56255,9:GOTO823